Kod
#library(plotly)
#library(dplyr)
#library(stringr)
estate <- read.csv(".\\Properties_philly_Kraggle_v2.csv")
estate1 <- estate %>%
filter(!is.na(Sale.Price.bid.price) | Sale.Price.bid.price != "") %>%
mutate(soldPrice = substring(Sale.Price.bid.price, 2)) %>%
filter(!is.na(finished...SqFt.)) %>%
mutate(soldPrice = as.numeric(str_replace(soldPrice, ",", ""))) %>%
mutate(finished...SqFt. = finished...SqFt.*0.093) %>%
mutate(Sale.Date = case_when(
Sale.Date == "September 13 2016" ~ "2016.09.13",
Sale.Date == "October 4 2016" ~ "2016.10.04",
Sale.Date == "August 2 2016" ~ "2016.08.02"
)) %>%
filter(substring(Sale.Date, 1, 4) == "2016")
estate1 %>%
plot_ly() %>%
add_markers(x=~finished...SqFt., y=~soldPrice, frame=~Sale.Date,
text=~paste("Sale price: ", soldPrice,
"<br>",
"finished m2: ", finished...SqFt.,
"<br>",
"Address: ", Address),
hoverinfo= "text") %>%
layout(title="Price of sold estates in Philadephia in 2016",
xaxis=list(title="Finished square meters"),
yaxis=list(title= "Price in $")) %>%
hide_legend()